(cl-make-type-test): Fix paren typo.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index c4761e93bc62d702f56f67caa1f2cac31b19d297..873032efdffb2e398e11a430a7c50c19e22410b9 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2241,7 +2241,7 @@ The type name can then be used in `typecase', `check-type', etc."
            ((eq type 'real) `(numberp ,val))
            ((eq type 'fixnum) `(integerp ,val))
            ;; FIXME: Should `character' accept things like ?\C-\M-a ?  -stef
-           ((memq type '(character string-char))) `(char-valid-p ,val)
+           ((memq type '(character string-char)) `(char-valid-p ,val))
            (t
             (let* ((name (symbol-name type))
                    (namep (intern (concat name "p"))))